home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnttlkt2.lha / Routines / SELFILE < prev    next >
Text File  |  1994-12-13  |  517b  |  9 lines
  1. SELFILE: procedure;arg np,bco,fco,ki
  2.     getuser 1209644;nu=result;getuser 2407246;if nu=result then return 0
  3.     pa=left(np,max(lastpos(':',np),lastpos('/',np)))
  4.     na=substr(np,length(pa)+1);si=word(statef(np),2)
  5.     sh=x2c(d2x(si,8))left(na,32,'00'x)left(pa,96,'00'x)copies('00'x,7)x2c(d2x(ki,2))x2c(d2x(si*bco%100,8))x2c(d2x(fco,4))copies('00'x,6)copies('FF'x,4)
  6.     getcarrier;if result~='TRUE' then exit;getuser 1401978
  7.     call export(x2c(d2x(result+nu*156,8)),sh)
  8.     setobject nu+1;putuser 1209644;return 1
  9.